Código fuente de 'Calcula fechas.asp'
<html>
<head>
<title>Calcula fechas - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Calcula fechas</font></b></p>
<%@ Language=VBScript%><%strFileTitle = "Calculate Dates"%><br>
La fecha de hoy es: <%=Date()%><BR>
</p>
<FORM action="Calcula fechas.asp" method=get>
<INPUT type="hidden" id=PageView name=PageView value=<%=Request.QueryString("PageView")%>>
<% If Request.QueryString("Date") = "" Then%>
Introduce la fecha: <INPUT type="text" id=Date name=Date value=<%=Date()%>>
<% Else%>
Introduce la fecha: <INPUT type="text" id=Date name=Date value=<%=Request.QueryString("Date")%>>
<% end If%>
<INPUT type="submit" value="Submit" id=submit1 name=submit1>
</FORM>
<%on error resume next
If not Request.QueryString("Date") = "" Then
dReq = Request.QueryString("Date")
strReq = FormatDateTime(dReq, vbLongDate)
%>5 días desde <%=strReq%> es <%=DateAdd("d", 5, dReq)%>.<BR>
2 años desde <%=strReq%> será <%=WeekdayName(Weekday(DateAdd("yyyy", 2, dReq)))%>.<BR>
1 mes desde <%=strReq%> será <%=MonthName(Month(DateAdd("m", 1, dReq)))%>.<BR>
<p><br>
<font size="1">Fuente: <a href="http://www.aspexamples.com">http://www.aspexamples.com</a>
</font> </p>
<%
end If
%></body>
</html>